home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / tcl / tcl70b2.lha / tcl7.0b2 / tests / cd.test < prev    next >
Text File  |  1993-07-08  |  4KB  |  120 lines
  1. # Commands covered:  cd, pwd
  2. #
  3. # This file contains a collection of tests for one or more of the Tcl
  4. # built-in commands.  Sourcing this file into Tcl runs the tests and
  5. # generates output for errors.  No output means no errors were found.
  6. #
  7. # Copyright (c) 1991-1993 The Regents of the University of California.
  8. # All rights reserved.
  9. #
  10. # Permission is hereby granted, without written agreement and without
  11. # license or royalty fees, to use, copy, modify, and distribute this
  12. # software and its documentation for any purpose, provided that the
  13. # above copyright notice and the following two paragraphs appear in
  14. # all copies of this software.
  15. #
  16. # IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE TO ANY PARTY FOR
  17. # DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT
  18. # OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF THE UNIVERSITY OF
  19. # CALIFORNIA HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  20. #
  21. # THE UNIVERSITY OF CALIFORNIA SPECIFICALLY DISCLAIMS ANY WARRANTIES,
  22. # INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
  23. # AND FITNESS FOR A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS
  24. # ON AN "AS IS" BASIS, AND THE UNIVERSITY OF CALIFORNIA HAS NO OBLIGATION TO
  25. # PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
  26. #
  27. # $Header: /user6/ouster/tcl/tests/RCS/cd.test,v 1.20 93/07/08 10:29:53 ouster Exp $ (Berkeley)
  28.  
  29. if {[string compare test [info procs test]] == 1} then {source defs}
  30.  
  31. catch {exec rm -rf cd.dir}
  32. exec mkdir cd.dir
  33. exec cat << "Sample text" > cd.dir/test.file
  34. set cwd [exec pwd]
  35.  
  36. test cd-1.1 {simple pwd check} {
  37.     pwd
  38. } $cwd
  39.  
  40. cd cd.dir
  41. test cd-2.1 {changing directories} {
  42.     list [exec pwd]
  43. } $cwd/cd.dir
  44. test cd-2.2 {changing directories} {
  45.     pwd
  46. } $cwd/cd.dir
  47. test cd-2.3 {changing directories} {
  48.     exec cat test.file
  49. } "Sample text"
  50. cd ..
  51. test cd-2.4 {changing directories} {
  52.     exec pwd 
  53. } $cwd
  54. test cd-2.5 {changing directories} {
  55.     pwd 
  56. } $cwd
  57. test cd-2.6 {changing directories} {
  58.     exec cat cd.dir/test.file
  59. } "Sample text"
  60.  
  61. # The tests below seem to fail on lots of machines for a variety
  62. # of reasons, such as the auto-mounter, home directories that are
  63. # symbolic links, etc.
  64.  
  65. if $atBerkeley {
  66.     set home [exec sh -c "cd; pwd"]
  67.     test cd-2.7 {changing directories} {
  68.     cd ~
  69.     set x [list [exec pwd] [pwd]]
  70.     cd $cwd
  71.     set x
  72.     } "$home $home"
  73.     test cd-2.8 {changing directories} {
  74.     cd
  75.     set x [list [exec pwd] [pwd]]
  76.     cd $cwd
  77.     set x
  78.     } "$home $home"
  79. }
  80.  
  81. test cd-3.1 {cd return value} {
  82.     cd .
  83. } {}
  84.  
  85. test cd-4.1 {errors in cd command} {
  86.     list [catch {cd 1 2} msg] $msg $errorCode
  87. } {1 {wrong # args: should be "cd dirName"} NONE}
  88. test cd-4.2 {errors in cd command} {
  89.     string tolower [list [catch {cd _bad_dir} msg] $msg $errorCode]
  90. } {1 {couldn't change working directory to "_bad_dir": no such file or directory} {posix enoent {no such file or directory}}}
  91. test cd-4.3 {errors in cd command} {
  92.     string tolower [list [catch {cd cd.dir/test.file} msg] $msg $errorCode]
  93. } {1 {couldn't change working directory to "cd.dir/test.file": not a directory} {posix enotdir {not a directory}}}
  94. test cd-4.4 {errors in cd command} {
  95.     set home $env(HOME)
  96.     unset env(HOME)
  97.     set x [list [catch cd msg] $msg]
  98.     set env(HOME) $home
  99.     set x
  100. } {1 {couldn't find HOME environment variable to expand "~"}}
  101.  
  102. test cd-5.1 {errors in pwd command} {
  103.     list [catch {pwd a} msg] $msg
  104. } {1 {wrong # args: should be "pwd"}}
  105. if $atBerkeley {
  106.     exec mkdir cd.dir/child
  107.     cd cd.dir/child
  108.     exec chmod 111 ..
  109.     if {$user != "root"} {
  110.     test cd-5.2 {errors in pwd command} {
  111.         catch pwd msg
  112.     } 1
  113.     }
  114.     cd $cwd
  115.     exec chmod 775 cd.dir
  116. }
  117.  
  118. catch {exec rm -rf cd.dir}
  119. format ""
  120.